home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinNT DMA Harddisk.xpl < prev    next >
Text File  |  2000-12-13  |  3KB  |  113 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Hardware\Hard Disk"
  5. "NAME"="Windows NT hard disk DMA"
  6. "VERSION"="1.31"
  7. "OSVERSION"="01000"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Activate DMA mode for Port One"
  10. "TEXT 2"="Activate DMA mode for Port Two"
  11. "DESCRIPTION 1"="Use this settings to activate or deactivate the DMA mode for your hard-disk(s). If you are using DMA, your hard-disc will be much faster than in default mode."
  12. "DESCRIPTION 2"="After activating this setting, you need to restart your PC. If the setting is enabled after this restart, your hard-disk does support DMA."
  13. "DESCRIPTION 3"="If the setting is deactivated again, your hard-disk does not support DMA."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18.  
  19.  
  20.  
  21. '//I like REG files... ;)
  22. '[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\atapi\Parameters\Device0]
  23. '"DriverParameter"="DmaDetectionLevel = 0x1;"
  24. '
  25. '//Old Stuff...
  26. 'sOK="YES, DMA is enabled!"
  27. 'sNO="DMA is NOT enabled"
  28. 'sNP="Port does not exists"
  29.  
  30.  
  31. sParaPath="HKLM\SYSTEM\CurrentControlSet\Services\atapi\Parameters\Device"
  32. sParaValueName="DriverParameter"
  33. sParaValue="DmaDetectionLevel = 0x1;"
  34.  
  35.  
  36. sPath="HKLM\Hardware\DeviceMap\Scsi\Scsi Port "
  37. sValue="\DMAEnabled"
  38.  
  39. 'Called when the Plugin is started
  40. SUB Plugin_Initialize
  41.   Call CheckPort(1)
  42.   Call CheckPort(2)
  43. END SUB
  44.  
  45.  
  46. Sub CheckPort(ID)
  47.  s=sPath & ID-1 & "\"
  48.  'Call DebugMsg(s)
  49.  
  50.  if RegPathExists(s) then
  51.   if RegReadValue(s & sValue)=1 then
  52.    SetUIElement ID,True 'sOK
  53.   else
  54.    SetUIElement ID,False 'sNO
  55.   end if
  56.  else
  57.   SetUIElement ID,False 'sNP
  58.  end if
  59. End Sub
  60.  
  61.  
  62. 'Called when the Plugin should validate the Data the user has entered
  63. SUB Plugin_CheckData(ElementIndex)
  64. END SUB
  65.  
  66. 'Called when the Plugin should apply the changes
  67. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  68.  b=GetUIElement(1)
  69.  if b=True then
  70.   Call EnableDMA(0)
  71.  else
  72.   Call DisableDMA(0)
  73.  end if
  74.  
  75.  b=GetUIElement(2)
  76.  if b=True then
  77.   Call EnableDMA(1)
  78.  else
  79.   Call DisableDMA(1)
  80.  end if
  81.  
  82.  
  83.  Call MsgWarning("Changes have been applied. You should restart your computer NOW because the changes you have made will not be visible until you have restarted.")
  84.  Call Restart
  85. END SUB
  86.  
  87.  
  88. Sub EnableDMA(DevID)
  89.  s=sParaPath & DevID & "\"
  90.  s=s & sParaValueName
  91.  
  92.  Call RegWriteValue(s,sParaValue,1)
  93. End Sub
  94.  
  95. Sub DisableDMA(DevID)
  96.  s=sParaPath & DevID & "\"
  97.  s=s & sParaValueName
  98.  
  99.  s2=RegReadValue(s)
  100.  
  101.  if IsEmpty(s2)=false then
  102.   Call RegDeleteValue(s)
  103.  end if
  104. End Sub
  105.  
  106.  
  107.  
  108. 'Called when the Plugin is about to be removed from memory
  109. SUB Plugin_Terminate
  110. END SUB
  111.  
  112.  
  113.